home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / TD2220.422 < prev    next >
Text File  |  1993-02-27  |  6KB  |  171 lines
  1. TD42220.mod
  2. Famine #1 @3659
  3. Mon Feb 22 11:45:46 1993
  4.  
  5.      Someone was looking for this mod and I thought sence I have it on my
  6. system and have udes it since 4.20 I would leave it here for those who need it.
  7.  
  8.  I know Sysop Weasle wantined this mod. But I didn't remember his node number.
  9.  
  10.  
  11.  
  12. ProNET ]I[ 1@1   WWIVLink 1@13655   WWIVNet 1@3654   IceNET 1@3659
  13. ┌──────────────────────────────────────────────────────────────────────────┐
  14. │_MOD NAME_______|_Agreement_terms_mod.____________________________________│
  15. │_MOD_FILENAME___|_________________________________________TD42220.MOD_____│
  16. │_MOD AUTHOR_____|_The_Famous_Director_of_Duece_Coupe_Inc._________________│
  17. │_WRITEN FOR_____|_Whoever_wants_it._______________________________________│
  18. │_VERSION WWIV___|_4.20,_4.20e,_4.21,_4.21a,_4.22__________________________│
  19. │_FILES AFFECTED_|_NEWUSER.C,______________________________________________│
  20. │_Installation___|_Just_block_copy.________________________________________│
  21. └──────────────────────────────────────────────────────────────────────────┘
  22.           Duece Coupe Inc. (C)1992 1993 by Che G and Lee J.
  23.  
  24.  Description of mod:
  25.  
  26. This is a mod that will print out files to your NEW users and will ask them
  27. if they agree with the terms/regulations/rules you set forth for your bbs.
  28. You will need three (3) files named "AGREE1.MSG, AGREE2.MSG,
  29. and AGREE3.MSG".
  30.  
  31. This mod will not save any information of a new user unless she/he/it agrees
  32. to all three term messages. So you don't have to worry about deleting some-
  33. ones account if the BBS didn't do it. This will ask them if they agree to the
  34. terms and if they chose "Y", it will go to the next agreement term file.
  35. If they chose "Y" again, it will go to the third file.
  36. Although if they chose "N" at any prompt, it will hangup on them and go
  37. back to WFC screen.
  38.  
  39. Also the '1j0 ' is for the printfile routine and needs to be there for a reason,
  40. this will keep the users from aborting the messages that you chose for your
  41. NEW USERS and if they try to space bar the screen/rules it will do nothing but
  42. re-print them until they quit trying to abort them.
  43.  
  44.  If you like this mod and want more of DCI mods, leave us a message and we
  45.  will send a listing of mods available to all SYSOPS/#1 accounts ONLY!
  46.  
  47. I have always wanted this mod and I haven't seen it around anywhere ( I
  48. have 400+ mods on my BBS and this one is not in any of them (Now it is!)).
  49.  
  50. To whom ever it was that wanted this mod (Sorry I don't remeber your name)
  51. here it is, so enjoy.
  52.  
  53. ┌─────────────────────┐
  54. │      LEGEND         │
  55. ├─────────────────────┤
  56. │+ Means add line     │
  57. │- Means delete line  │
  58. │! Means modify line  │
  59. │= Means original code│
  60. └─────────────────────┘
  61.  
  62.   First step:
  63.  
  64. BACK up your source code!
  65.  
  66.  Second step:
  67.  
  68.  Load up NEWUSER.C and search for 'void input_name(void).
  69.  
  70.  
  71. */
  72. /*
  73. =void input_name(void)
  74. ={
  75. !  int ok,count,j;   // add the j for the vars
  76. =
  77. =  count=0;
  78. =  do {
  79. = nl();
  80. = ansic(1);
  81. = if (syscfg.sysconfig & sysconfig_no_alias)
  82. = pl(get_string(520));
  83. = else
  84.  
  85. {--------------------- Start of TD42220.MOD  ------------------------------}
  86.  
  87. {---------------------  Start of BLOCK READ  ------------------------------}
  88.  
  89. + do {
  90. + outchr(12);
  91. +  j=printfile("AGREE1.EEA");
  92. +  if (!j) {
  93. +  nl();
  94. +  delay(10);
  95. +  }
  96. +  } while (j);
  97. +  outstr("hDo you agree to these terms ? ");0
  98. +  if (yn());
  99. +  else
  100. +  hangup=1;
  101. +  do {
  102. +  outchr(12);
  103. +  j=printfile("AGREE2.EEA");
  104. +  if (!j) {
  105. +  nl();
  106. +  delay(100);
  107. +  }
  108. +  } while (j);
  109. +  outstr("hDo you agree to these terms ? ");0
  110. +  if (yn());
  111. +  else
  112. +  hangup=1;
  113. +  do {
  114. +  outchr(12);
  115. +  j=printfile("AGREE3.EEA");
  116. +  if (!j) {
  117. +  nl();
  118. +  delay(10);
  119. +  }
  120. +  } while (j);
  121. +  outstr("hAnd these as well ? ");0
  122. +  if (yn());
  123. +  nl();
  124. +  else
  125. +  hangup=1;
  126. =  pl(get_string(521));
  127. = prt(2,":");
  128. = mpl(30);
  129. = input(thisuser.name,30);
  130. = ok=check_name(thisuser.name);
  131. = if (!ok) {
  132. = nl();
  133. = ansic(6);
  134. = pl(get_string(522));
  135. =  ++count;
  136. =  if (count==3)
  137. =    hangup=1;
  138. = }
  139. =  } while ((!ok) && (!hangup));
  140. =}
  141.  
  142.          This mod is the sole property of DCI (c) 1992 1993 by DCI.
  143.  
  144.  You are hereby granted the right to implement this code into your source for
  145.  reasons given above.
  146.  
  147.  Any reproduction of this mod , rather it be cosmetic or otherwise, is stricly
  148.  prohibited without the authors permission!
  149.  
  150. That's it, now recompile and log on as a new user and try to abort the
  151. first file and then chose "N" and you will find yourself re-logging on.
  152.  
  153. Then try to hit ENTER and see what happens, it should hangup also.
  154.  
  155.                DCI warrents all mods from defects from DCI. 
  156.  
  157. Although if this mod destroys your hard/software, DCI can not and will not be
  158. held responciable due to operator error installing this mod into their sorce
  159. 'C' code of WWIV or any other 'C' code.
  160.  
  161.  Notice is hereby given that if any part of DCI mods are reproduced without the
  162. prior writen consent and permission of DCI and thier affiliates will take step
  163. necessary to bring charges towards said person(s).
  164. d                          c________0
  165. n                          dTheuFamous2Director0
  166. d                          c~~~~~~~~~~~~~~~~~0
  167.  
  168.   0 __4_____          __      __          __  __  __0_______________________
  169.   7{_}4  /_    316   /_  942 /_/  9446   /_/ /_/ /_ 3 WWIVlink  1 @ 13655 7{_}
  170.   7{_}4 /_  lectric /_ agle / / rcade   /_/·/_/·__/·3 IceNET    1 @ 3659  7{_}
  171.